home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / patter / form1.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-05-08  |  3.5 KB  |  120 lines
  1. VERSION 2.00
  2. Begin Form Form1 
  3.    BackColor       =   &H00C1C1C1&
  4.    Caption         =   "Form1"
  5.    ClientHeight    =   3465
  6.    ClientLeft      =   1170
  7.    ClientTop       =   2205
  8.    ClientWidth     =   8280
  9.    Height          =   3870
  10.    Left            =   1110
  11.    LinkMode        =   1  'Source
  12.    LinkTopic       =   "Form1"
  13.    ScaleHeight     =   3465
  14.    ScaleWidth      =   8280
  15.    Top             =   1860
  16.    Width           =   8400
  17.    Begin PictureBox SSPanel1 
  18.       BackColor       =   &H000000FF&
  19.       Height          =   1000
  20.       Left            =   0
  21.       ScaleHeight     =   975
  22.       ScaleWidth      =   975
  23.       TabIndex        =   8
  24.       Top             =   0
  25.       Width           =   1000
  26.    End
  27.    Begin PictureBox SSPanel2 
  28.       BackColor       =   &H000000FF&
  29.       Height          =   1000
  30.       Left            =   0
  31.       ScaleHeight     =   975
  32.       ScaleWidth      =   975
  33.       TabIndex        =   0
  34.       Top             =   0
  35.       Width           =   1000
  36.       Begin CommandButton Command7 
  37.          BackColor       =   &H00DFDFDF&
  38.          Caption         =   "Pattern 7"
  39.          Height          =   360
  40.          Left            =   165
  41.          TabIndex        =   7
  42.          Top             =   2370
  43.          Width           =   1020
  44.       End
  45.       Begin CommandButton Command6 
  46.          BackColor       =   &H009F9F9F&
  47.          Caption         =   "Pattern 6"
  48.          Height          =   360
  49.          Left            =   165
  50.          TabIndex        =   6
  51.          Top             =   1995
  52.          Width           =   1020
  53.       End
  54.       Begin CommandButton Command5 
  55.          BackColor       =   &H00C6C6C6&
  56.          Caption         =   "Pattern 5"
  57.          Height          =   360
  58.          Left            =   165
  59.          TabIndex        =   5
  60.          Top             =   1620
  61.          Width           =   1020
  62.       End
  63.       Begin CommandButton Command4 
  64.          BackColor       =   &H00CFD1D1&
  65.          Caption         =   "Pattern 4"
  66.          Height          =   360
  67.          Left            =   165
  68.          TabIndex        =   4
  69.          Top             =   1245
  70.          Width           =   1020
  71.       End
  72.       Begin CommandButton Command3 
  73.          Caption         =   "Pattern 3"
  74.          Height          =   360
  75.          Left            =   165
  76.          TabIndex        =   3
  77.          Top             =   870
  78.          Width           =   1020
  79.       End
  80.       Begin CommandButton Command2 
  81.          BackColor       =   &H00C8CACA&
  82.          Caption         =   "Pattern 2"
  83.          Height          =   360
  84.          Left            =   165
  85.          TabIndex        =   2
  86.          Top             =   495
  87.          Width           =   1020
  88.       End
  89.       Begin CommandButton Command1 
  90.          BackColor       =   &H00D5D5D5&
  91.          Caption         =   "Pattern 1"
  92.          Height          =   360
  93.          Left            =   165
  94.          TabIndex        =   1
  95.          Top             =   120
  96.          Width           =   1020
  97.       End
  98.    End
  99. Sub Command1_Click ()
  100.     form1.backcolor = &HC1C1C1
  101. End Sub
  102. Sub Command2_Click ()
  103. form1.backcolor = &HC8CACA
  104. End Sub
  105. Sub Command3_Click ()
  106. form1.backcolor = &HCFD1D1
  107. End Sub
  108. Sub Command4_Click ()
  109. form1.backcolor = &HC6C6C6
  110. End Sub
  111. Sub Command5_Click ()
  112. form1.backcolor = &H9F9F9F
  113. End Sub
  114. Sub Command6_Click ()
  115. form1.backcolor = &HDFDFDF
  116. End Sub
  117. Sub Command7_Click ()
  118. form1.backcolor = &HD5D5D5
  119. End Sub
  120.